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DECnet Ethernet Configurator Module 1h-sep-19 4 96:00:90 AX-11 B ; 32 V4.0-742 Page 1 
14-Sep-1984 12:49:54 NICNF.S FSTORE. 


~~ 
. 


3 1 0001 O XTITLE ‘DECnet Ethernet Configurator Module’ 

; ¢ OR6 MODULE CNFSTORE 

3 00 LANGUAGE COL 15836) - 

3 ¢ 000s SDENT = 'v04-000' | 

: = 

; 6 006 1 BEGIN 

ye a 

: 9 BOOS 1 i eee eeeeeeeeeeeeeee eee eeeeeeeeeeeeeeeeeeeeeeeeeereeeneeeeeeeeneeneeneeer 

; 0010 1 !* * 

H 11 0011 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

$ \¢ Bei¢ 1 !'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 

: Fe Betz : i ALL RIGHTS RESERVED. : 

: 15 0015 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

; 16 8018 1 '* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

H 17 001 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

: 18 0018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 19 0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: so +4 ; :* TRANSFERRED. . 

3 ® 

3 $¢ 00 § 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 2 00 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT « 

: Se oBSe : :* CORPORATION. : 

; 'e 

: 26 0026 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

: e7 0027 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; 58 0009 | is : 

: $3 94 1 PETTITITILIILLIL ILL LLL LLL LLL TLL Lili Titi litt tiiiiiiiiin 

mR 0031 1! 

a eee 

; $e OO Re ! FACILITY: DECnet Configurator Module (NICONF IG) 

; 36 0036 | ABSTRACT: 

; 35 0038 1: This module contains the routines for reading and storing the 

3 4 484 ! system ID messages that are periodically broadcast on the NI. 

; 41 0041 1 ' ENVIRONMENT: VAX/VMS Operating System 

: “§ ao4s ‘ ! AUTHOR: Bob Grosso, CREATION DATE: 13-Oct-1982 | 

; 45 Go4s i MODIFIED BY: | 

3 (47 0049 1! v03-002 TRC0002 sores Cone tey Aug-23-1984 | 

3 rr 7k : Inhibit processing of pad bytes in Sys ID | 

: 50 0050 1/ v03-001 RPGOOO1 Bob Grosso May-19-1983 | 

3 2) eh ' Correct the arguements to LIBSSIGNAL. 

; 3 0088 1 in | 
| 
| 
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v04-000 Betiniclone . 12-80-1382 95:05:90 NICNF .SRCICNF STORE .B 3251 
: i Me } XSBTTL ‘Definitions’ 
: 1! 
3 8 00 : 1 ! INCLUDE FILES: 
; be8 1! 
; @& 0 1 
; 2 se } LIBRARY ‘SYSSLIBRARY:STARLET'; ! VMS common definitions 
; o7 0062 1 LIBRARY ‘SHRLIBS:NMALIBRY'; ! NICE code definitions 
3 o? O183 ; REQUIRE ‘LIB$:CNFDEF.R32'; 
; 67 0 g 1 REQUIRE ‘SRC$:CNFPREFIX.REQ'; 
; 68 53 1 
; 8 54 1 
: 70 33 
7a, 0 2$ 1 ! BUILTIN functions 
, £ 0257 1! 
ie 0258 1 
s 676 0259 1 BUILTIN 
3 75 0260 1 INSQUE, ' INSQUE instruction 
$ re OSes : REMQUE; ' REMQUE instruction 
3 78 0 8 1 GLOBAL LITERAL 
; #679 0264 1 SYSIDM_BUFSIZ = 64, 
; 80 0265 1 ADRTYP_BUFSIZ = 14; 
; #81 8 06 1 
; a 67 1! 
~ 8 asee 1 ! TABLE OF CONTENTS: 
; 84 269 1! 
g 89 Bsoe 1 
: a6 osih : FORWARD ROUTINE 
5 0378 1 CNFSREAD_SYSIDM, ' Read the system ID messages from the NI 
; «889 0274 1 BUFFER_IB : NOVALUE, ' Buffer the ID messages and re-issue read 
: 90 0275 1 STORE_TD : NOVALUE, ! Partially parse the messages and store them 
: 4 0577 ! INSERT_SID; ! Place the ID messages in the circuit block 
; ¢ 0278 1! 
: 94 0279 1 ! EXTERNAL REFERENCES: 
; #695 0280 1! 
; 81 1 
3 44 53 : EXTERNAL ROUTINE 
; 9 = Module CNFMAIN 
: 100 32 1 
: 101 $ 1 CNFSEXIT ' Clean up and exit 
: 196 1 CNFSTRACE, ' Lo mosseges to log file 
; 10 : 1 CNFSGET_ZVM, ' Get zeroed virtual memory 
; H+ ' CNFSFREE_VM, ! Free virtual memory 
: 198 91 1! Module CNFWORKQ 
5 3 1 
3 198 i ! WKQSADD_WORK_ITEM; ! Add work to work queue 
: 110 8 95 1 EXTERNAL ROUTINE 
e 11 96 «1 
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STE REAR Areet Cottowerer mont IEgepcig QB:20:80 WAT SAN thea? 


STRSCOMPARE : ADDRESSING MODE (GENERAL); 


EXTERNAL LITERAL 
CNFSC_ASYNCH_EFN; 


EXTERNAL LITERAL 


CNFS$_LOGIC, ! Program logic error or unexpected condition 
CNFS_SYSID; ! Error while obtaining system ID message 


EXTERNAL 
CNF$GQ_CIRSURLST : VECTOR (2); ! List of circuits under surveillance 
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-Sep-1 AX-11 BL 


@ 1 4 02:07: 
_SYSIDM Read the system i§ messages on 137886-1 382 95:05:80 NICNF.SR 
ZSBTTL hs ET Read the system id messages on the NI' 


GLOBAL ROUTINE CN 


'¢ 


READ_SYSIDM (CIR) = 


+ 
FUNCTIONAL DESCRIPTION: 


CNFSREAD_SYSIDM issues the Q10 to read System ID Messages on the NI. 


i FORMAL PARAMETERS: 


cir CIRcuit control block. Contains buffers and information 
on the circuit. 
' IMPLICIT INPUTS: 
NONE 


i IMPLICIT OUTPUTS: 
NONE 


i ROUTINE VALUE: 
i COMPLETION CODES: 


Always return success 


SIDE EFFECTS: 
NONE 


BEGIN 
MAP 

CIR : REF BBLOCK; 
LOCAL 

STATUS; 


CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR('TRACE'), 
SDESCRIPTOR T'cnf$read_sysidm')); 


Allocate the two buffers to hold the system ID wogeags 
and the message header. If the buffers are already there 
then a logic error of some sort has occurred. 


(.CIR CCIRSL_SYSIDMBUF] NEQ 0) OR 
(.CIR CCIRSL_ADRTYPBUF J) NEQ 0) 


THEN 
SIGNAL (CNF$_LOGIC); 

EXECUTE (CNFSGET-2VM (ZREF(SYSI 

EXECUTE (CNFSGET—ZVM (ZREF (ADRT 


' 
i 
iF 


R PSinst ere eee tt ); 
R (C »); 


-BUFSIZ), Cl se 
BUFSIZ), CI IR$L_ADRTYPBUF 


CHSFILL (0, 8, CIR CCIR$W_I0SB]); ! Initialize the I/0 status block 


Issue Q10 to read system id messages being broadcast on the NI 
erarys = $010 


‘ | 
CNF STORE DECmet Ethernet Configurator Module 16- Sep-1984 AX-11 Bliss-32 V4.0-742 Pa 

v04 CNFSREAD_SYSIDM Read’ the system i§ messages on 1 ~3ep-19 4 95:05 ‘00 NICHE SRCTENESTORE Boost ” a 
: 187 P 0371 FUNC = 10$_READLBLK ; 
; 188 P te CHAN <CIR CIRSW -EHANI. : 
: 189 P 037 EFN = CNFSC ASYNCHE ; 
: 190 P 0374 10SB = CIR [CIR on Tbs 84, : 
: 191 P 0375 ASTADR : TBUFFER *t5, : 
3 138 & a A 1P RM = “bie 3 
: 19 P 037 Pi = .CIR ECIRSL_SYSIDMBUFI, : 
; 194 P 28 P2 = SYSIDM BUFSIZ F 
: 195 P 037 P5 = .CIR CCIRSL_AORTYPBUF) ; 
BS : 
; 198 9 : IF NOT .STATUS THEN SIGNAL (CNF$_SYSID, 0, .STATUS); ; 
ey RETURN TRUE; ; 
; 200 0384 ! routine CNFSREAD_SYSIDM : 
TITLE cur stone DECnet Ethernet Configurator Module : 
-IDENT \V04-000\ : 
.PSECT $PLIT$,NOWRT,NOEXE,2 : 
45 43 41 52 54 00000 P.AAB: .ASCII \TRACE\ ; : 
60005 -BLKB 3 ; 
00000005 00008 P.AAA: LONG 5 : : 
00090000" 000¢ -ADDRESS P.AAB ; : 
6D 64 69 73 79 73 SF 64 61 65 72 26 66 6E€ 6 9019 P.AAD: “ASCII \entSread_ sysidm\ : : 
0000000F 90020 P.AAC: .LONG 15 : : 
00000000" 00024 -ADDRESS P.AAD ; : 
SYSIDM_UF $1Z== 64 i 
ADRTYP~BUF SI2== ; 
.EXTRN CNESEXIT CNFSTRACE : 
“EXTRN CNESGET 1 ivm. CNFSFREE_VM : 
SEXTRN WKOSADD = ; 
-EXTRN STR OOPARES CCNESC ASYNCH_EFN ; 
-EXTRN Sure consi _SYSID 3 
*EXTRN CNE SEG C IRSUR URLS? ; 
~EXTRN SYS a0” : 
-PSECT S$CODES$,NOWRT,2 : 
OOFC 00000 .ENTRY CNFSREAD SYSIOM, Save R2,R3,R4,R5,R6,R7 : 0315 : 
57 000000006 90 i 9 02 HOVAR LIBSSIGNAL, R ; : 
E 4 § SUBL ti 3 ; : 
000' CF 9F 0000C PUSHAB P.AAC ; 0349 : 
000° CF OF 10 PUSHAB P. > 0348 : 
1 DD 00014 PUSHL a ; 3 
00006 CF 3 F 16 CALLS #3, CNFSTRACE ; : 
56 04 AC OD 1B MOVL cae + 0356 ; 
8 Ag p 1F TSTL 6(R6) ; : 
0 2 BNEQ ; : 
3C Ag p 4 ist 0(R6) : 0357 2 
, 000000006 rf Dp 9 1$: PUSHL ACNFS 1198 Fes : 0359 3 
38 «AG OOF 2 28: PUSHAB sins’ : 0360 ; 


CNF STORE DECnet Ethe 
¥04-000 CNFSREAD SYST 
04 
00006 
04 
00006 
08 00 
000000006 


; Routine Size: 156 bytes, 


et Configurator Module 
DM Read the system 


AE 40 BF 9A 00035 
MR ER Bn08D 
6 i 
se AH Bae 

AE OF D0 0004 
04 AE SOF O004C 
CF 0 FB 0004 
bé £9 00054 
6E 00 3c 057 
oc AG 05¢ 

7E 4 0005 

SC AB BD 0006 

7E 7C 

7E 40 BF 9A 0006 
38 = A6 DD 00069 
58 pb 0006C 

o09ov CF 9F 0006 

OC Ab 9F 000 

21 pp 0007 

7E 16 6 007 
000000006 8F dD 0007B 
00 O¢ FB 00081 
0D 6 EB 00088 
50 DD 00088 
E D4 0008D 
000000006 BF DD OOO8F 
67 03 FB 00095 
50 01 0 00098 
04 00098 


Routine Base: 


SCODES + 0000 


ew 
Sah td 


ig messages on 1-00-1984 93: 95 4 


poy 


AX-11 BL 
NICNF.SR 


#64, 4(SP) 

2, CNFSGET_ZVM 
Atus, 5‘ 
(R6) 


V4.0-742 


biges -3 
CICNF STORE .832;1 


CNFSGET _ZVM 


US5) #0, #8, 12(R6) 


Be Se Se Ge Se Se Se Ge Ge Se Be Be Se Fe Ge Ge Fe Be Be Sa Se Ge Ge Se Ge Be Ge Se Be Be 


0361 


0364 
0380 


0382 


0383 
0384 
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K 
NF STORE DECnet Ethernet Configurator Module 16-Sep-1984 02:07:00 AX-11 Bliss-32 V4.0-742 Page 7 CN 
-000 buffer_id Remove the system id message from b 102805- 138 93309; 88 NICNF. SRCICNF STORE 83251 . (4) ve 
5 ZSBTTL ‘buffer_id Remove the system id message from buffer’ : 
§ ROUTINE BUFFER_TD (CIR) : NOVALUE = ° 


'e¢ 
' FUNCTIONAL DESCRIPTION: 


Buffer_id is an AST routine called when a read for a system ID on 

the Ni ray ae | or cancels. If the read was cancelled then the 

circuit's buffers are deallocated. If the read was successful 

then the id message must be removed to another buffer so that the buffer 
can be re-used and the read re-issued immediately. The circuit block 

and the id message will be queued to the work queue to be parsed and stored. 


FORMAL PARAMETERS: 


PIPIPIPIPIPURIPOPIPOPINOPIPONIPUNIPONPOPoPoNnoTny 
MMM) 3 3 3 3 OOO oO 
SSRN MR UI mO SR RAR oO 
o ooo. 
x x 
o SYLL0 00000 
ww CONIA UNE APO 


' 
i 
i 
i 
i 
i 
i 
i 
i 
' 
! cir CIRcuit control block. Contains buffers and information 
ot? } on the circuit. 
040 ! IMPLICIT INPUTS: 
} 0404 NONE 
3 t's ! IMPLICIT OUTPUTS: 
: B38 NONE 
6 hs !' ROUTINE VALUE: 
7 1 ! COMPLETION CODES: 
. : NONE 
0 1 ' SIDE EFFECTS: 
31 1 ! NONE 
3 1 ! 
3 1 !e< 
34 1 
$2 1 BEGIN 
1 MAP 
; CIR : REF BBLOCK; 
3 LOCAL 


SYSIDM : REF BBLOCK; 


CNFSTRACE (DBGSC_TRACE, se | 


SCRIPTOR(* TRACE"), 
SDESCRIPTOR T'buffer_id')); 


E 
id 
Check to see if surveillance has been disabled. 

Since surveillance is disabled by a routine executed from 
the work queue, and this routine is delivered oy AST, 
care must be taken to ensure that errors are not introduced 
due to the timing of the AST completion. 


PEW OO OODNO UE WN — OOONOU SW 0 


PRIPPIPPOPOPOMONIMONDPIPIMINIMNIPINIDINININ IIA a at ak nt nt a tt tt tt tk kk kk hd 


SELLER LLLLEE DOOOOOOOOOSCSoOoOO 


1 
i If the circuit was marked for disable but the AST was delivered 
3 before the channel was deassigned, then just quit. 
40 iF .CIR CCIR$B_SURVEIL] EQL NMASC_SUR_DIS 
5 41 THEN 


-PSECT SPLITS,NOWRT ,NOEXE 2 


45 43 41 52 54 00028 P.AAF: otf \TRACE\ : 


0 

$0888808 B P.AAE: .LONG _ ; 

' b “ADDRESS P.AAF : 

64 69 SF 72 65 66 66 6 P.AAH: ASCII \buffer_id\ : 
4 BLKB 3 


4 
CNF STORE DECnet Ethernet Configurator Module 18-se -1984 02:07: AX-11 Bliss-32 v4.0-742 Page 8 
v04-000 buffer_id Remove the system id message from b 1 =300 71383 95:05:90 NICNF .SRCICNF STORE 83251 ae 
; 259 44 BEGIN 
; 260 4 EXECUTE (CNFSFREE_VM (ZREF(ADRTYP_BUFSIZ), CIR Pe eh hE 
; 261 444 EXECUTE (CNFSFREE VM (ZREFCSYSIDM_BUFSIZ), CIR CCIRSL-SYSIDMBUFJ)); 
; 26 445 CIR inet AOR Treur = 0; 
; 2 rr, CIR CCIRSL_SYSIDMBUFJ = 0; 
; 264 44 RETURN TRUE; 
3 ge0 44 END; 
; 266 44 
; 267 450 ' 
; 268 451 ! The 1/0 failed, and not because the surveillance was disabled 
3 $ : § and the 1/0 cancelled, therefore signal the error. 
: 271 Er IF NOT .CIR CCIR$W_10SB) 
s ef 0455 THEN 
s ef Be28 BEGIN 
: 274 045 SIGNAL (CNFS_SYSID, 0, .CIR CCIRS$W_10SB)); 
3; 275 Be 28 RETURN TRUE; 
: 76 045 END; 
3; e277 0460 
s 27 0461 ! 
3 64 BOG8 Allocate a descriptor and fill it in 
3 3 pees EXECUTE (CNFSGET_ZVM (ZREF (DSCS$C_S_BLN), SYSIDM)); 
3 $f 0466 SYSIDM COSCSA_POINTER) = .CIR CCIRSL_SYSIDMBUF I; 
3 Be eee 4 SYSIDM CDSCSW_LENGTH] = .CIR CCIR$W_TOSB1); 
3 $B 0469 ' 
; 287 0470 ! Do the work of copying the ID out of the CIR block at the 
; 288 0471 ! the leisure of the work queue. STORE_ID will have to check 
; 289 beg ! whether surveillance was disabled on fhe circuit between now 
3 +s oh 5 and when it finally executes. 
: 4 B45 WKQSADD_WORK_ITEM (STORE_ID, .CIR, .SYSIDM, .CIR CCIRSL_ADRTYPBUF)); 
: 294 0477 CIR FERS. Sys i OneUe = 0; 
: 295 0478 CIR CCIRSL_ADRTYPBUF) = 0; 
; 38 0479 
; 29 0480 ! 
; 298 0481 ! While still at AST level, aurry up and re-issue the READ for the 
: 44 Beas ! System ID messages to reduce the chance of missing any. 
3 BS a3s CNFSREAD_SYSIDM (.CIR); 
; 8 4 $ RETURN TRUE; 
3; 304 487 1 END; ! Routine buffer_id 


M 
CNF STORE DECnet syrernet Configurator Module 19-8 
v04-000 buffer_id Remove the system id message from b 14-S 


4 
ep-19b4 19:49:56 ENTCNF.SRCSENFSTO 
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00000000" Oo0e8 "*™*S* ADDRESS P.AAK 


-PSECT SCODES,NOWRT,2 


0004 00000 BUFFER_ID: 
. WORD Save R2 


SE 08 g2 0002 SUBL2 #8, SP : 

9000" CF OF PUSHAB P.AAG : 

000° CF 9F 099 PUSHAB  P.A : 

1 DD D PUSHL ui : 

00006 CF 3 FB OOF CALLS #3, CNFSTRACE : 
52 04 AC DO 00014 MOVL CIR, R2 ; 

01 OA A2 91 00018 CMPB  =s-«T0(R2), #1 : 

29 12 0001C BNEQ 1$ : 

3c = A2s«OSF:s«COOOIE PUSHAB 60(R2) : 

04 AE OE 00 000 1 MOVL #14, 4(SP) : 
04 AE 9F 00025 PUSHAB 4(SP) : 

00006 CF 0 FB 00028 CALLS #2, CNFSFREE_VM : 
68 E9 900 D LBC sTAtus, 3$ ; 

38 «= A2 «OF 000 0 USHAB 56(R2) F 

een oe AE OF 90038 Postae atsby ee 
00006 CF 09 FB 00038 CALLS #2, CNFSFREE_VM : 
55 5 E9 0040 BLBC status, 34 ; 

“ * 3 i SE eet ; 

14 OC A2 €E8 00047 1$: LBS 12(R2). 2$ : 

7E OC A2 32 0004B CVTWL  12(R2), =(SP) : 

7E D4 D004 CLRL. = (SP) : 

000000006 8F DD 00051 PUSHL WCNFS SYSID ; 

000000006 00 03 FB S003 CALLS #3, LIBSSIGNAL : 
04 AE 9F OO0S5F 28: PUSHAB SYSIDM : 

04 AE 08 My 0062 MOVL #8, 4(SP) F 
04 AE 9F 000 PUSHAB 4(§P) ; 

00006 CF Q re 0069 CALLS #2 CNFSGET_ZVM : 
é? E O06 BLBC STATUS, 3$ F 

0 4 AE D MOVL SYSIDN, 0 ; 

04 Ad 8 A2 DO 00075 MOVL 6(R2). 4(RO) : 
60 —E A2 B 7A MOVW 14(R2). (RO) : 

€ Ad OD i PUSHL  60(R2) : 

; DD PUSHL R F 

pp : PUSHL R : 

0000v CF OF PUSHAB STORE_ID : 

00006 CF ws 04 FB 0 9 CALLS #4 WROSADD_WORK_ITEM 
ae 52 0b Gos) BURA, Royston 7 
04 8098 3$: RET “s 3 


; Routine Size: 153 bytes, Routine Base: S$CODE$ + 009C 


DECnet Ethernet Configurator Module 


3 g 


Fe ee 
Wie 


IWWAMANNWW NA NWAAWAN ANNAN 


WWI AI AIR PPENIPYNINININIDD 2 I OO OS SS "OOD 


o—, 


198e $3:c9:¢ — ENTCNF.GR 
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: NOVALUE = 


Parse and store the system id messa 


9 
SBTTL. ‘store_id Parse and store the 


N 
o-3 
“S$ 
L t 
OUTINE STORE_TD (CIR, SYSIDM_DSC, ADR 


4 
e 
e 
Bur) 


1 
1 
s 
P 


Y 


++ 
FUNCTIONAL DESCRIPTION: 

Store_id is executed off the work queue. 

The id message must be parsed and stored. 

If it is the id from a familiar device then the cell for 

that device's data is updated, otherwise a new cell is created. 
FORMAL PARAMETERS: 


cir CIRcuit control block. Contains buffers and information 
on the circuit. 


sysidm.dsc Descriptor of buffer containing system ID message 
adrtypbuf Buffer containing the current NI address and 
protocol type 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 
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BEGIN 
MAP 
ADRTYPBUF : REF BBLOCK, 
CIR : REF BBLOCK, 
SYSIDM_DSC : REF BBLOCK; 
LOCAL 
SID : REF BBLOCK, ! System Id storage block 
SIMBUF ; 


CNFSTRACE (DBGS$C_TRACE, $ 


DESCRIPTOR(' TRACE"), 
SDESCRIPTOR T'store_id')); 


If the circuit was not marked for disable after the AST was delivered 
but before STORE_ID was called from the work queue then store the 
system ID message in the circuit block. 

CIR CCIRSB_SURVEIL] EQL NMASC_SUR_ENA 
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Ss 
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; 
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placed in 
ctictg | al LSS (.SYSIDM_DSC COSCSA_POINTER] + .SYSIDM_DSC CDSCS$W_LENGTH]) DO 


DECnet Ethernet Configurator Module - 
Parse and store the system id messag 1 


Extract Current NI address and Protocol type from 
the ADRTYPBUF buffer and deallocate the buffer. 


HSMOVE (SIDSC_ADRLEN, .ADRTYPBUF + SIDSC_ADRLEN, SID CSIDS$T_CURADR]); 
If TYPE is not Protocol 260 (Remote Console system ID) 
Then there's been an error. 


Extract and store info from the System ID Message buffer 
IMBUF = .SYSIDM_DSC CDSCSA_POINTER] + 4; 


CAL 
LENGTH, 
TYPE; 
TYPE (.SIMBUF) <0, 16>; 


LENGTH = .(.SIMBUF) <16, 8>; 
IF .LENGTH LEQ 0 
THEN 


BEGIN 
CNFSTRACE (DBGS$C_TRACE, $DESCRIPTOR("TRACE *** ERROR ' 
SDESCRIPTOR T'store_id - illegal system ID f 


EXITLOOP; 
END; 


SIMBUF = .SIMBUF + 3; 


block. 
NE .TYPE OF 


m— es, 
“oOo ov 


1986 93:29:50 


Allocate a buffer to hold the system ID message. 


UTE (CNFSGET_ZVM (ZREF (SIDSC_LENGTH) 
UTE (SGETTIM™( TIMADR = SID CSID$Q_L 


! Point to beginning of buffer and ski 
! Code byte, Pad byte and Receipt number word 


' Word of type code , 
! Byte of length of data field 


), 
ield length')); 


! Skip type and Length to data 


patch on field type to store data in proper location in 
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DECnet Ethernet Configurator Module 1b-sep-19 4 9 07:00 AX-11 Ot ig =-32 V4.0-742 
Parse and store the system id messag 14-Sep-1984 12:49: NICNF..SRCIJCNFSTORE.B32;1 
' 
! MOP version, MOP version ECO, MOP version User ECO 
{SIMS$C_MOPVERTYP]: 
IF 3 EQL 3 THEN 
SID CSID$B porver S ake simeut} <0, 8>; ! MOP version 
SID CSID$B-MOPECO) = .(.SIMBUF) <8, 16>; ' MOP version ECO 
re $10$B8_ “MOPUSRECOI = .(.S MBUE) *<16, 8>; ! MOP version User ECO 
SE 
CNFSTRACE (DOBGSC TRACE, SDESCRIPTOR(" TRACE *** ERROR '), 
SDESCRIPTOR T' store. id - MOP')); 
— = .SIMBUF + .LENGTH ! Skip over data to next TYPE 
' 
' Funtions are returned in a word bit mask. To make 
} Life easier when building the SHOW response Later, 
figure how many of the bits in the mask are set. 
CSIMS$C_FUNCTNTYP): 
iu" 
FUNCTIONS = SID CSID$W_FUNCTIONS] : BITVECTOR CSID$C_MAXFUNC]; 
IF .LENGTH NEQ 2 
CNFSTRACE (DBGSC TRACE, SDESCRIPTOR( "TRACE A") —— sai) 
DESCRIPTOR T’ store 4 - ay iN LENGTH") 
SID CSID$SW_FUNCTIONS) = "ate » <0, 16>; 
SIMBUF = .SIMBUF + .LENGTH ! Skip over data to next TYPE 
i 
Count the number of bits that are set 
iNCR INDEX FROM 0 TO S108 _MAXFUNC = 1 DO 
IF .FUNCTIONS C.IN 
‘ THEN SID S1D$B_ AURF UNC = .SID CSID$B_NUMFUNC) + 1; 
1 
Get the 6-byte Hardware address 
CSIMSC_HDWADRTYP): 
cHenOye (SID$C_ADRLEN SI NBUF . SID CSIDS$T oan at Th ag 
SIMBUF = .SIMBOF + LENGTH; Skip over data to next TYPE 


' 
Get the device type 
CSIMsc DEVICETYP3: 
SID CSID$SB_DEVICE] = .(.SIMBUF) <0, 8>; 
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+ bent Ethernet Configurator Module 


CNF STORE 16- 
v04-000 Parse and store the system id messag 12-Sep-19 4 


=PIPIPINPIPIPININININININ NWI WNW BB PUNE SSL LLP 


C 
0 


NICNF. SRCI CNF STORE .B32;1 


— = ,SIMBUF + .LENGTH; ! Skip over data to next TYPE 


e is a data field returned which we don't understand. 
over it and proceed merrily on our way. 


(DBGS$C TRACE, SDESCRIPTOR('TRACE *** ERROR '), 
RIPTOR T' store id')); 
-SIMBUF + LENGTH; ! Skip over data to next TYPE 


END; ! While parsing System ID Message buffer 


Place the SID into the circuit block on an ordered Linked List 
INSERT_SID (.SID, .CIR): 
END; ! If surveillance was still enabled 


If the circuit was marked for disable after the AST was delivered 
but before STORE_ID was called from the work queue then just 
deallocate the buffers and quit. 


EXECUTE (CNFSFREE_VM (ZREF (ADRTYP -BUFSIZ), ADRTYPBUF) ); 
EXECUTE (CNFSFREE_VM (ZREF(SYSIDM-BUFSIZ), SYSIDM_DSC CO DSCSA_POINTER]) ); 
EXECUTE (CNFSFREE_VM (ZREF(DSC$C_S_BLN), SYSIDM POSC)) 


RETURN TRUE; 
END; ! Routine Store_id 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


45 43 41 52 54 GO04C P.AAJ: ASCII \TRACE\ 
0000005 $0084 P.AAL “PONG 5. 
099009 y 0098 ° “ADDRESS, P 
64 69 SF 65 72 6F 724 C P.AAL: .ASCII he id\ 
800000" oooss AK? “tone ss PAA 
2A 2A 20 45 43 41 98 i 6 $C P.AAN: .ASCII \TRACE ** ERROR \ 
0 7C P.AAM: .LONG 6. 
$S9888N8. $8855 PAM: 10H 
gf $9 "9 $3 fs of i 0093 P.AAP: -ASCII ta.-4 id - illegal system ID field Lengt\ 
a 20 64 6C 65 89 RB 
68 aC ASCII yh 
00000029 80 P.AAO: .LONG 41 
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Parse and store the system id messag 1 
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9494448 0134 
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6F 74 0013C 
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FO =6AB OOF 2000¢ 
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w$p-1986 13:4 


P.AAR: .ASC 


P.AAT: .ASCII 
BLKB 


P.AAV: LA 
P.AAU 

P.AAX: .ASCII 
P. AAW: “PONG 


P.AAZ: .ASCII 
P.ABB: .ASCII 
~EXTRN 


.PSECT 
STORE_ID: 
.W 


ADDLS 
4$: MOVZWL 


§ 


7 
9: 
Aeon $s 


“LONG 14 
“ADDRESS P 
“ASCII 


0 AX=11 Ol issue V4.0-742 
4 NICNF..SRCICNF STORE .B832;1 
P 
T 


AAP 
\TRACE *** ERROR \ 


LONG 16 
»ADDRESS P.AAR 


\store_id - MOP\ 


AAT 
\TRACE *** ERROR \ 


LONG 16 
»ADDRESS ?. AAV 


\store_id - FUNCTION LENGTH\ 


«LONG 6 
»ADDRESS P.AA 


x 
\TRACE *** ERROR \ 


-LONG 16 
eADDRESS P.AAZ 


\store_id\ 


LONG 8 
-ADDRESS P.ABB 


SYSSGETTIM 
SCODES,NOWRT ,2 


Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 
VAAK, R11 
#8, SP 
Rif 
P.AAI 
i 
#3, CNFSTRACE 
cae R10 
10(R10) 
1$ 
19$ 
S10 
#37, 4(SP) 
4(SP) 
#2, CNFSGET_ZVM 
STATUS, 2$ 
D, Rb 
(R6) 
r) SYSSGETTIM 
STATUS, 3$ 
ADRTYPBUF, RO 
#6, 6(RO). 16(R6) 


SYSIDM pst, R 
4 4(R9), $ IMBUF 


Bee Be Be Be Be 
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CNF STORE DECnet Ethernet Configurator Module 16-Sep-1984 :07: AX-11 Bliss-32 V4.0-74 
v04-000 store_id Parse and Store the system id messag 18-80 0- 1382 95:07:90 NICNE. SROTENFSTORE BS201 eset 
50 04 a9 CO 0005 ADDL2 4 (R9), RO : 
5 j 6 CMPL S1MBUF RO : 
1 6 GEG : 
52 68 3C 0006 MOVZWL (SIMBUF), TYPE : 
02 AB 9A 0006 MOVZBL @(SIMBUFS LENGTH : 
OF 14 0006C GTR ‘ : 
4¢ AB OOF ef PUSHAB P.AAO : 
18 AB OF PUSHAB  P.AAM : 
1 DD 00074 PUSHL #1 : 
00006 CF 3 FB 00076 CALLS #3, CNFSTRACE : 
Fo 11 7B 5$: BRB igs : 
58 Q CO 0007D 6$: ADDL2 #3, SIMBUF : 
01 D1 8 CMPL TYPE, #1 : 
18 12 008 BNEG 8$ : 
03 3 D1 00085 CMPL LENGTH. #3 : 
: if 0088 BNEG $ : 
1E Ab é e 008A MOVW  (SIMBUF), 30(R6) : 
20 Ab 02 ag 0 OO8E MOVB 2 (SIMBUFS, 32(R6) : 
62 11 0009 BRB 17$ : 
7¢ «AB OF 00095 78 PUSHAB P.AAS : 
64 AB 9F 00098 PUSHAB P.AAQ : 
53 11 00098 BRB 16 : 
02 52 D1 00090 8s CMPL TYPE, #2 : 
28 12 S009 BNEQ ; 
02 D1 O0A2 CMPL LENGTH, #2 ; 
OF 13 900A BEQL ; 
0088 CB 9F O00A7 PUSHAB P.AAW : 
0094 CB 9F OOOAB PUSHAB P.AAU : 
01 DD OOOAF PUSHL #7 ; 
00006 CF 03 FB 00081 CALLS #3, CNFSTRACE : 
22. Ab 68 B0 90086 9$ VW  (SIMBUF), 34(R6) : 
58 57 CO OO0BA ADDL2 LENGTH, $IMBUF : 
50 D4 0008D CLRL. —s«INDEX ; 
03 22 Ab 50 FI OOBF 10$: BBC INDEX 34(R6), 118 : 
21 Ab $ 00C4 INCB 3(R65 ; 
F4 50 OF £3 000C7 11$:  AOBLEQ #15, INDEX, 10$ F 
8C 11 000CB 128: BRB 4$ ; 
07 52 D1 90¢d 13$: CMPL TYPE, #7 ; 
0 if 000 BNEQ 14$ : 
OA Ab 68 06 : 000 MOVC3 a (SIMBUF), 10(R6) ; 
1 1 0000 BRB 17§ ; 
00000064 = 8F 52 01 9009 14$ CMPL TYPE, #100 ; 
06 12 000 BNEQ 15$ : 
24 AG 6 9 oe MOVB (SIMBUF) , 36(R6) : 
, 7 E BRB 1 : 
00EO CB 9F OO0ES 158 PUSHAB P.ABA : 
0000 CB 9F OOOE PUSHAB P.AAY F 
1 DD OOOFO 168 PUSHL #1 F 
00006 ce 3 F F CALLS #3, CNFSTRACE ; 
® ‘ fF? 17$: ADDL LENGTH, $IMBUF ; 
F FA BRB t : 
0440 8F BB OOOFC 18$:  PUSHR #*M<R6,R10> ; 
0000v CF 2 FB 001 CALLS #2, INSERT_SID ; 
Oc AC 9F 00105 198 PUSHAB ADRTYPBUF ; 
06 AE OE po 1 MOVL #14, 4(SP) : 
04 AE F 0010C PUSHAB 4(SP) ; 
00006 CF 02 FB 0010F CALLS #2, CNFSFREE_VM ; 


CNF STORE DECnet Ethernet Configurator Module 18-se 4 7: AX-11 Bliss-32 V4.0-742 
v04 store_id Parse and Store the system id messag 1 730071382 98: 93 92 NICNF.SR RCION FSTO ORES % 2;1 


24 1 BLBC STATUS $ 
7E 08 AC 9 ? 113 ADDL UF eb _DSC, =(SP) 
AE 40 F 9a 001 f MOV BL ; ra Tike 
00006 CF , 05 Pe 4 CheLs ; vg te E_vM 
bf é 3 129 LBC —s- STATUS, 50S . 
08 AC $F OO12C PUSHAB SYSIDM’DSC 
04 AE 08 00 O01eF OVL #8, 4 (SP) 
04 AE 9F 00133 PUSHAB 4(§P) 
00006 CF 02 FB 001 CALLS #2, CNFSFREE_VM 
04 00138 208: RET 


; Routine Size: 316 bytes, Routine Base: S$CODE$S + 0135 


H 5 
DECnet Ethernet Configurat is 1o=3e0= 138% 96:07:99 AX-11 Pl igenze V4.0-742 
insert_sid Insert SID into CiR block 14-Sep-1984 12:49:54 NICNF.SRCJCNF STORE .832;1 
94 ZSBTTL ‘insert_sid Insert SID into CIR block’ 
695 ROUTINE INSERT_SID (SID, CIR) = 


'¢ 


tee 
FUNCTIONAL DESCRIPTION: 


ee ae 
OONAMNE Ww 


Place the system ID message into a doubly Linked List of system ID 
messages in the CIR block, ordered by NI hardware address. 


FORMAL PARAMETERS: 


ARAVLS SRS 


sid System ID storage block. 


cir CIRcuit control block. Contains buffers and information 
on the circuit. 


IMPLICIT INPUTS: 
NONE 


ROUTINE VALUE: 

COMPLETION CODES: 
Success or a failure returned by a routine which is called 
from INSERT_SID 


SIDE EFFECTS: 
NONE 


bh ah ne se a 


oOo 
ARUN OOO NOU FU OO OO0 NO PRO Dee 


i 

i 

i 

i IMPLICIT OUTPUTS: 
NONE 

i 

i 

' 

ie 


: REF BBLOCK, 
: REF BBLOCK; 


LOCA 
TATUS; 


a Pi in Pi Pin Pe Pe My yy yy i, ee ee ee be ee ee | 
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ae IR CCIRSL_SIDFLINK] EQL CIR CCIRSL_SIDFLINKI 
' 
This is the first ID message stored, so just plop it in. 
aya INSQUE (.SID, .CIR CCIRSL_SIDBLINK)) 
BEGIN 


| Create a doubly Linked List ordered by NI Hardware address 


PPA TIUVIVIUIR EE BEEP EEE Pw 
DPS CS SSS POOR NOUP Nm O Dm Ue RN OS OOo ~ Ss 3 


AAO 


Run thru the whole List 


5 
CNF STORE DECnet Ethernet Configurator Module 1-5 Sep 4 0 AX-11 Bliss-32 V4.0-742 P 18 
v04-000 insert_sid Insert SID into CIR block 14-Sep- 7138¢ 93:25 9 NICNF. SRCJEN CNF STORE .B32; 1 — (6) 
70 751 ' 
71 7 § 
if f ? ; a string compare utility routine. 
755 CHSFILL 0, °° c$c Py BLN, NSRT_ADR_DSC); 
5 7 6 SCS gu “LEN ENGTH ="SIDSC_ADRLE 
7 NSAI ADR” “OsCSee A-P ER) = $ID [SID : NARDWADR): 
7 : SFILL 3B c$c_S “BUN PR_ADR_DSC); 
g ; CAPR _ADR “psec toscs- BLN th ="S$1DSC_ADRLEN; 
, 1 
reg 
7 


CMP_SID = .CIR CCIRSL_SIDFLINK ! $ID being compared against 
WHICE .CMP_SID NEQ CIR CCIRSL “SEDFLINKI DO 


CMPR_ADR_DSC CDSCSA_POINTER] = CMP_SID CSIDST_HRDWADR); 


DUP DUP LUV SIVPV SIV SVSUDPUSUSV SVS SUSISISUSVSISISIS ISIS ISIS 
=F COONAN 
MEwrn— = 
OOOCOCOCOCOCOCOCOCOCOCOOCOCOCOOOOOOOOOOOOOOOO OOOO OOOOOO 
Jooooo 
Some 


; ! Build a descriptor of the NI beréuare address to be used in 
é 4 
d 
3 8% 4 CASE STPecommane (NSRT ADR_DSC, CMPR_ADR_DSC) 
; 589 4 FROM =-1 TO 1 OF ' Either Less than, Equal to, or Greater than 
; 590 771 & 
3 91 re 4 
: 3 773 4 {-1): 
3 9 774 & ' 
3 94 775 4 ! Less than: Insert here 
; 595 776 4 ! 
3 96 777 ~«(5 BEGIN 
3 97 778 : INSQUE F gle -CMP_SID CSID$L_BLINK]); 
; 598 779 RETURN RUE; 
; 599 780 4 END; 
; 600 44! 4 
; 601 7 ; 4 [0] : 
; 783 4 ! 
; 60 784 4 ' Equal to: Replace with the new message 
; 604 785 4 ! 
; 605 736 : BEGIN 
; 606 78 REMQUE f. CMP_ S10, pate Esl 
; 607 788 5 INSQUE (.SID; SID CSID$L_BLINK 
; 608 789 3 EXECUTE icurériee. _OM (RREF(SIDSC INENGTHD CMP_SID) ); 
3; 609 790 RETU RUE; 
3; 610 791 4 ; 
3 «6611 792 4 
3 618 793 4 (1) : 
; 61 794 4 ! 
3 ete ak ? It's greater than: Keep moving down the List 
5 o1g 79 ? BEGIN 
; 61 798 CMP_SID CMP_SID CSID$SL_LINK) 
; 618 799 4 END; 
; 619 800 4 
; 620 Sh) 4 TES; 
3 ° § END; ! End WHILE traversing List of SYSTEM IDs 
i; 6 B94 ' 
; 626 5 ! It was greater than all the ones in the List so we drop pped 
3 $$? 4] ' down to here where it should be inserted at end of the list 
; 626 0 ! 
| 


5 
DECnet Ethernet Configurator Module 1b-se -1984 02:07: AX-11 Bliss-32 V4.0-742 
insert_sid Insert SID into CIR block 1 730071 38e 95:05:80 NICNF. SRCICNFSTORE .B32s1 


INSQUE (.SID, .CIR CCIRSL_SIDBLINK)) 
END; ! ELSE the List was not empty 


RETURN TRUE; 
END; ! Routine insert_sid 


007C 00000 INSERT_SID: 
WORD 


‘ Save R2,R3,R4,R5,R6 
5E 18 C2 0000 SUBL2 #24, SP 
t4 8 AC p 000 MOVL CIR, R6 
20 40 Ab 9E 00009 MOVAB 64(R6), RO 
0 40 Ad D1 0000D CMPL 64(R6). RO 
07 12 00011 BNEG ='1$ 
44 Bb 04 BC OF 0013 INSQUE @SID, @68(R6) 
8 11 00018 BRB 54 
6E “ 00 2c O01, 1$ MOVCS #0, (SP), #0, #8, NSRT_ADR_DSC 
08 AE 06 BO 00021 MOVW #6, NSRT_ADR_DSC 
04 AC OA ci 0025 ADDL3 #10, SID> NSRT_ADR_DSC+4 
6E ie 00 C 99 movcS #0, (SP); #0, #8, CMPR_ADR_DSC 
10 AE 06 B80 000 MOVW #6, CMPR_ADR_DSC 
04 AE 40 Ab DO 000 MOVL  64(R6), CMP_SID 
5 04 AE 00 00038 28 MOVL.  CMP_SID, R2 
08 AC 00000040 8F Ci 0003F ADDL3 #647 CIR, RO 
50 52 D1 00048 CMPL =e R2,, RO 
4c 13 00048 BEQL 
14 AE OA A2 9E 00040 MOVAB 10(R2), CMPR_ADR_DSC+4 
10 AE OF 0098 PUSHAB CMPR_ADR_DSC 
OC AE 9F 0005 PUSHAB NSRT~ADR~DSC 
00 oe FB ited CALLS +e STRSCOMPARE 
F 8 CF 0005F CASEL RO, #-1, #2 
000D 0006 00067 3$ <WORD  4$-3$,- 
6$-3$.- 
04 B2 04 gC OE 99060 4$: INSQUE a@SID, @4(R2) 
11 00 2 5$: BRB 
53 62 OF 00074 6$: REMQUE (R2), STATUS 
5 4 AE BO 9077 MOVL CMP _S1D RO 
046 8B 4 BC OE 00078 INSQUE @SIB, a4(RO) 
04 AE 9F 000 PUSHAB CMP_SID 
04 AE 2 po 09 #37> 4(SP) 
04 AE 9F 000 PUSHAB 4(SP 
CF Q FB O8A CALLS #2, CNFSFREE_VM 
10 Fs O8F BLBS STATUS, 9$ 
04 AE 6 06 3 7$: MOVL  (R2), CMP_SID 
A2 1 9 BRB $ 
50 08 AC pd 8$: MOVL CIR, RO 
44 80 4 BC : INSQUE S16, a68(RO) 
1 06 O0A 9$: MOVL #1, RO 
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(6) 


vO4=000" nsert sid Insert siB into Cin block 10-188 95:25:82 ENTCAE. ShcStneSrReves3¢ 1 fool 


; Routine Size: 166 bytes, Routine Base: S$CODE$ + 0271 


curs} E DECnet Ethernet Configurator Module 18-Sep-1984 95:02:90 AX-11 Olig “ 


insert_sid Insert SID into CIR block 14-Sep-1 NICNF. 


6 14 1 END | End of module CNFSTORE 
ron 8813 0 FLUDON arog Mycpern 


~EXTRN LIBSSIGNAL 


PSECT SUMMARY 

Name Bytes Attributes 
SPLITS 332 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, boeken od Lora b oh fs 
SCODES 791 NOVEC,NOWRT, RD, XE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
» OS -« QO NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 

Library Statistics 
qnnceuers Symbols -------- Pages Processing 

File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBIJSTARLET.L32;1 9776 2 0 581 00:01.0 
“$255$DUA28: CSHRLIBINMALIBRY.L32; 1 887 2 0 47 00:00.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CNFSTORE/OBJ=OBJ$:CNFSTORE MSRC$:CNFSTORE/UPDATE=(ENHS: CNF STORE) 


Size: 791 code + 332 data bytes 
Run Time: 00:18.2 

Elapsed Time: 00:36.4 

Lines/CPU Min: 2692 

Lexemes/CPU-Min: 19912 


peneey Used: 155 pages 
at 


Compi ion Complete 


re 


EX 


~—v%EEe!2 


ENT CORPORATION 
ND PROPRIETARY 
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